Software Vault: The Diamond Collection/The Diamond Collection (Software Vault)(Digital Impact).ISO/cdr37/ducal114.zip/DUCALL1.WCX

Wildcat! WCX | 1995-03-02 | 23KB | 1,164 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  23204 bytes  01/29/123  04:30:16pm
'! Code Segment Size  :12087 bytes
'! Data Segment Size  :5312 bytes
'! String Segment Size:11117 bytes
'! Compiled with WCC version 4.01

      Type Type27
        Filler0(1 To 6) As Byte
        s6 As String*70
        Filler76(1 To 14) As Byte
        s90 As String*70
        Filler160(1 To 14) As Byte
        s174 As String*70
        Filler244(1 To 20) As Byte
        w264 As Word
      End Type

      Type Type26
        Filler0(1 To 6) As Byte
        s6 As String*70
        Filler76(1 To 14) As Byte
        s90 As String*70
        Filler160(1 To 14) As Byte
        s174 As String*70
        Filler244(1 To 20) As Byte
        w264 As Word
      End Type

      Declare Function Func9356 As Integer
      Declare Sub Sub9662(s65534 As String, i65532 As Integer, i65530 As Integer, i65528 As Integer)
      Declare Sub Sub9966(s65534 As String, i65532 As Integer, i65530 As Integer, i65528 As Integer)
      Declare Sub Sub10297(s65534 As String, i65532 As Integer, i65530 As Integer)
      Declare Sub Sub10639
      Declare Sub Sub10969
      Declare Sub Sub11100
      Declare Sub Sub11541

      Dim s4463 As String
      Dim i4467 As Integer
      Dim i4469 As Integer
      Dim s4471 As String
      Dim t4475 As Time
      Dim t4479 As Time
      Dim s4483 As String
      Dim s4487 As String
      Dim t4491 As Time
      Dim i4495 As Integer
      Dim s4497 As String
      Dim s4501 As String
      Dim s4505 As String
      Dim s4509 As String
      Dim i4513 As Integer
      Dim s4515 As String*1
      Dim s4516 As String*8
      Dim s4527 As String
      Dim s4531 As String*25
      Dim i4556 As Integer
      Dim i4559 As Integer
      Dim s4561 As String*15
      Dim s4576 As String
      Dim t4580 As Time
      Dim i4584 As Integer
      Dim d4586 As Date
      Dim i4588 As Integer
      Dim i4590 As Integer
      Dim i4592 As Integer
      Dim i4594 As Integer
      Dim i4596 As Integer
      Dim i4598 As Integer
      Dim i4600 As Integer
      Dim s4602 As String
      Dim s4606 As String
      Dim s4610 As String
      Dim w4614 As Word
      Dim s4616 As String
      Dim s4620 As String
      Dim s4624 As String
      Dim ur4628 As UserRecord
      Dim i5278 As Integer
      Dim i5280 As Integer
      Dim s5282 As String*14
      Dim i5296 As Integer
      Dim i5298 As Integer
      Dim i5300 As Integer
      Dim i5302 As Integer
      Dim i5304 As Integer
      Dim r5306 As Real

      Dim i65526_ As Integer '! Temporary
      Dim i65528_ As Integer '! Temporary
      Dim i65530_ As Integer '! Temporary
      Dim s65532_ As String '! Temporary

      CarrierCheck(-1)
      s4509 = "1.14ß"
      CurrentTime t4475
      s4527 = " entered callback verifier "
      Sub10639
      i4513 = 1
      If Not Exists(ProgPath + "DUCWEL.MSG") Then
        Print
        Print "!!! SYSOP ERROR !!! Welcome Message test not found!"; , ; 12; , ; 0
        Print
        Sub10969
        s4527 = " " + ProgPath + "DUCWEL.MSG not found, aborting "
        Sub10639
      Else
  174   If Not Exists(ProgPath + "DUCALL.CFG") Then
          Print
          Sub10297(("!!! SYSOP ERROR !!! Configuration File not found!"), (12), (0))
          Print
          Sub10969
          s4527 = " configuration file error!!! "
          Sub10639
          GoTo 8142
        Else
  288     i4594 = FreeFile
          Open ProgPath + "DUCALL.CFG" For Input As i4594
          CarrierCheck(0)
          LockFile(i4594, 0, 1)
          Input #i4594, s4576
          Input #i4594, s4505
          Input #i4594, s4602
          i4598 = Val(s4602)
          If i4598 = 1 Then
            s4527 = " long distance allowed "
            Sub10639
          End If
  413     Input #i4594, s4606
          Input #i4594, s4610
          Input #i4594, s4501
          Input #i4594, s4602
          i4559 = Val(s4602)
          Input #i4594, s4602
          i5296 = Val(s4602)
          Input #i4594, s4602
          i5298 = Val(s4602)
          Input #i4594, s4602
          i5300 = Val(s4602)
          Input #i4594, s4497
          Input #i4594, s4602
          i5304 = Val(s4602)
          Input #i4594, s4602
          s4483 = RTrim(s4602)
          Input #i4594, s4602
          s4487 = RTrim(s4602)
          Input #i4594, s4602
          i4588 = Val(s4602)
          Input #i4594, s4602
          i4467 = Val(s4602)
          Input #i4594, s4602
          s4463 = RTrim(LTrim(s4602))
          Input #i4594, s4602
          i4584 = Val(s4602)
          UnlockFile(i4594, 0, 1)
          CarrierCheck(-1)
          Close i4594
          TimeStringToTime "hh:mm", s4483, t4479
          TimeStringToTime "hh:mm", s4487, t4491
        End If
  752   Cls
        Sub10297(("Hello!"), (15), (0))
        Sub10297((s4576 + " presents @0D@DuCall@0E@, a Wildcat! callback verifier"), (14), (0))
        If ANSIDetected Then
          Sub9662(("by Dimensions Unlimited"), (0), (3), (0))
          Sub10297(("&"), (6), (0))
          Sub9966(("Your Sysop: " + RTrim(s4505)), (0), (14), (8))
        Else
 1094
          Sub10297(("by Dimensions Unlimited"), (3), (0))
          Sub10297(("&"), (6), (0))
          Sub10297(("Your Sysop: " + RTrim(s4505)), (14), (8))
        End If
 1272   If i4467 = 0 Then
          Sub10297((String(70, "═")), (15), (0))
          Sub10297(("DuCall v" + s4509), (10), (0))
          Sub10297((String(70, "═")), (15), (0))
        Else
 1476     Color 15, 0
          Print String(79, "═")
          Sub10297(("DuCall v" + s4509), (10), (0))
          Color 15, 0
          Print String(79, "═")
        End If
 1578   If User.SecLevel <> s4606 And User.SecLevel <> s4501 Then
          i4596 = 14
          Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
          Print
          Print "You have already been verified!  There is no need to access this"
          Print "Callback verifier again.  Thanks!"
          Print
          s4527 = " This user had been previously verified! "
          Sub10639
          Sub10969
          End
        End If
 1707   i4596 = 11
        Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
        If i4467 = 0 Then
          If i4598 = 0 Then
            Print
            Print "     Your Sysop has disabled Long Distance Call-Back verification."
            Print
            Print "     If you are calling from a toll area or long distance, you cannot use"
            Print "     this verifier.  You must wait 24 hours for upgrade.  Just leave us a"
            Print "     note and we will get you going.  If you are calling locally, then"
            Print "     please continue on."
          Else
 1835       Print
            Print "     Your Sysop allows Long Distance Call-Back verification!"
            Print
            Func9356
            If i4495 = 0 Then
              Print "     but.... the system only will only do long distance verification"
              Print "     between "; FormatTime(t4479, "hh:mmte"); " and "; FormatTime(t4491, "hh:mmte"); ". If you are calling Long Distance,"
              Print "     please call back during those hours.  Thanks!"
              Print
              s4515 = InputMask("     Are you calling Long Distance? ", "Y", "", 1213417543)
              If s4515 = "Y" Then
                CurrentTime t4580
                GoSub 8171
                i4596 = 11
                Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
                Print "     Please call back during the allowed hours.  Once again, those hours"
                Print "     are between "; FormatTime(t4479, "hh:mmte"); " and "; FormatTime(t4491, "hh:mmte"); "."
                Print
                Print "     Current Time: ";
                Color 12
                Print FormatTime(t4580, "hh:mm")
                s4527 = " attempted L/D verification outside allowed hours"
                Sub10639
                s4471 = "L/D outside allowed hours"
                Sub11100
                Sub10969
                GoTo 8142
              End If
            End If
 2174       Print "     Please continue on to the next step."
          End If
        End If
 2183   If i4467 = 0 Then
          i4596 = 13
          Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
          Print
          s4515 = InputMask("     Should I call your computer so I can verify your phone number? ", "Y", "", 1213417543)
          If s4515 = "N" Then
            i4596 = 14
            Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
            Print
            Print "Okay!  Aborting. Returning to the BBS."
            Sub10969
            s4527 = " refused initial callback question"
            Sub10639
            s4471 = "User refused initial callback question"
            Sub11100
            GoTo 8142
          End If
 2390     s4515 = ""
          GoSub 8171
          w4614 = CsrLin
        End If
 2415   i4596 = 11
        Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
        Print "  The purpose off Call-Back Verification is to protect your rights as a user."
        Print "  It insures that someone else is not pretending to be you, an logging on"
        Print "  and using your time.  It also provides me with a record of phone numbers"
        Print "  I can use to compare against other users in the Data Base, to make sure"
        Print "  your account is not being violated."
        Print
        Print "  After you have completed the verification, you will be upgraded on the spot"
        Print "  to a status that is set for Non-Subscribers to this system.  If you have"
        Print "  any questions at all, please post me, "; RTrim(s4505); ","
        Print "  a message from the main menu."
        Print
        Sub10969
        Cls
        GoSub 8171
        Print "  In a moment you will be asked for your Areacode, Prefix and Extension. You"
        Print "  will have a chance to make changes in the event you entered the wrong"
        Print "  information.  The proceedures are pretty straight forward, so you should"
        Print "  have no trouble getting through this."
        Print
        Sub10969
        Cls
        GoSub 8171
        Do
 2629     w4614 = CsrLin
          Do
 2637       i4596 = 10
            Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
            s4616 = InputMask("Enter your  AreaCode: ", "999", "", 1213417543)
            s4620 = InputMask("Enter your   Pre-Fix: ", "999", "", 1213417543)
            s4624 = InputMask("Enter your extension: ", "9999", "", 1213417543)
            Print
            s4527 = " [" + s4616 + "] " + s4620 + "-" + s4624 + " entered"
            Sub10639
            If Len(Trim(s4616)) <> 3 Or Len(Trim(s4620)) <> 3 Or Len(Trim(s4624)) <> 4 Then
              i4596 = 15
              Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
              Print "We can not accept blanks in your data entry."
              Print
              s4515 = InputMask("Quit? ", "Y", "", 1213417543)
              If s4515 = "Y" Then
                s4527 = " user aborting "
                Sub10639
                s4471 = "User Refused to answer Phone # Question"
                Sub11100
                GoTo 8142
              End If
 3011       Else
 3017         i4596 = 15
              Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
              s4527 = "Is @0E@[" + s4616 + "] " + s4620 + "-" + s4624 + "@0F@ correct? "
              s4515 = InputMask(s4527, "Y", "", 1213417543)
              If s4515 = "Y" Then
                GoTo 3178
              End If
            End If
 3163       Cls
            GoSub 8171
          Loop
 3178     Cls
          GoSub 8171
          i4596 = 10
          Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
          Print
          Print "Scanning user database for duplicate phone numbers..."
          Print "Your number: "; "@0E@[" + s4616 + "] " + s4620 + "-" + s4624 + "@0F@"
          s4561 = s4616 + "-" + s4620 + "-" + s4624
          i5278 = 0
          If GetUser(ur4628, "") Then
            Do
 3357         i5302 = 0
              If RTrim(ur4628.PhoneNumber) = s4561 And ur4628.Name <> User.Name Then
                i5278 = i5278 + 1
                i5302 = 1
                i4596 = 10
                Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
                Print "Duplicate Voice Number found: ";
                i4596 = 14
                Print "@" + Right(Hex(i4596), 2) + "@";
                Print ur4628.PhoneNumber
                s4527 = " duplicate voice number found in user database "
                Sub10639
                If i5278 > i5300 + 1 Then
                  GoTo 4075
                End If
              End If
 3584         If RTrim(ur4628.DataNumber) = s4561 And ur4628.Name <> User.Name Then
                i4596 = 10
                Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
                Print "Duplicate Data  Number found: ";
                i4596 = 14
                Print "@" + Right(Hex(i4596), 2) + "@";
                Print ur4628.DataNumber
                If i5302 <> 1 Then
                  i5278 = i5278 + 1
                  i5302 = 1
                End If
 3777           s4527 = " duplicate data number found in user database "
                Sub10639
                If i5278 > i5300 + 1 Then
                  GoTo 4075
                End If
              End If
 3820         If RTrim(ur4628.FAXNumber) = s4561 And ur4628.Name <> User.Name Then
                i4596 = 10
                Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
                Print "Duplicate Fax   Number found: ";
                i4596 = 14
                Print "@" + Right(Hex(i4596), 2) + "@";
                Print ur4628.FAXNumber
                If i5302 <> 1 Then
                  i5278 = i5278 + 1
                  i5302 = 1
                End If
 4013           s4527 = " duplicate fax number found in user database "
                Sub10639
                If i5278 > i5300 + 1 Then
                  GoTo 4075
                End If
              End If
 4056       Loop Until Not GetNextUser(ur4628, 1213417543)
          End If
 4075     i4592 = 0
          Print
          If i5278 >= 1 Then
            i4596 = 10
            Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
            Print "The phone number you entered is already in the user database!"
            Print
            If i5300 = 0 Then
              Print "Only one user can be verified per phone number."
            Else
 4183         Print "The Sysop allows "; i5300; " extra user verification(s) at your"
              Print "phone number. Currently, there is "; Str(i5278); " users verified at"
              Print "your location."
              Print
              If i5278 > i5300 Then
                Print "Sorry, we can not automatically verify more users for your location."
                Print
                Sub10969
              Else
 4284           i4592 = 1
              End If
            End If
 4291       If i4592 = 0 Then
              i4596 = 15
              Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
              s4515 = InputMask("Do you wish to re-enter your phonenumber? ", "Y", "", 1213417543)
              If s4515 = "N" Then
                s4527 = " the user is exiting "
                Sub10639
                s4471 = Str(i5278) + " user(s) already verified at this phone number"
                Sub11100
                GoTo 8142
              End If
 4444       Else
 4450         s4527 = " allowing a duplicate number verification "
              Sub10639
              GoTo 4528
            End If
 4471     Else
 4477       s4527 = " number is new to the database "
            Sub10639
            GoTo 4528
          End If
 4498     s4527 = " user is re-entering the phone number "
          Sub10639
          Cls
          GoSub 8171
        Loop
 4528   If i5278 = 0 Then
          Print
          Print "Your phone number was not found in the User Data Base.  That is good!"
          Print
        End If
 4555   Sub10969
        If i4467 = 0 Or i4584 = 0 Then
          Cls
          GoSub 8171
          Print
          Print "Checking your number against a database of local phone number prefixes...";
          i4594 = FreeFile
          i5280 = 0
          Open ProgPath + "DUCCLOCL.CFG" For Input As i4594
          CarrierCheck(0)
          LockFile(i4594, 0, 1)
 4664     Do While Not EOF(i4594)
            Input #i4594, s4602
            If Left(s4602, 1) <> ";" Then
              If Left(UCase(s4602), 4) <> "AREA" Or Left(UCase(s4602), 4) <> "ENDA" Then
                If Left(s4561, 7) = Left(s4602, 7) Then
                  i5280 = 1
                  GoTo 4805
                End If
              End If
            End If
 4799     Loop
 4805     UnlockFile(i4594, 0, 1)
          CarrierCheck(-1)
          Close i4594
          Print
          If i5280 = 1 Then
            Print
            Print "Match! We have a match.  The number you have entered is confirmed to be a"
            Print "local telephone call."
            Print
            Sub10969
            s4527 = " telephone prefix match! It's a local call "
            Sub10639
            s4516 = Right(RTrim(s4561), 8)
          Else
 4918       If i4598 = 0 Then
              Print
              Print "Sorry, for some reason, your telephone prefix is not in our extensive Data"
              Print "Base of local phone number prefixes.  Please leave the Sysop a message"
              Print "and tell the sysop your phone number prefix so that he can get the data"
              Print "base updated. Are you calling long distance?  We can not verify long"
              Print "distance callers."
              Print
              s4527 = " the prefix given is not in DucClocl.CFG "
              Sub10639
              s4471 = "Caller's prefix not in database of local phone number pre-fixes"
              Sub11100
              Sub10969
              GoTo 8142
            Else
 5029         Func9356
              If i4495 = 0 Then
                Cls
                GoSub 8171
                Print
                Print "Your phone number must be long distance from this BBS.  If not your"
                Print "telephone prefix was not in our extensive Data Base of local phone"
                Print "number prefixes."
                Print
                Print "Long Distance verification is only allowed between the hours of "; FormatTime(t4479, "hh:mmte"); " and "; FormatTime(t4491, "hh:mmte"); "."
                Print "Please try back during those hours. Thanks!"
                Print
                Print "If you are local, please send the Sysop a message (comment) and tell the"
                Print "Sysop your phone number prefix so that he can get the database of local"
                Print "phone numbers updated."
                Print
                s4527 = " attempted L/D verification outside allowed hours"
                Sub10639
                s4471 = "L/D outside allowed hours"
                Sub11100
                Sub10969
                GoTo 8142
              End If
 5221         Print
              Print "Your phone number must be long distance from this BBS.  If not your"
              Print "telephone prefix was not in our extensive Data Base of local phone"
              Print "number prefixes.  If you are local, please send the Sysop a message"
              Print "and tell the Sysop your phone number prefix so that he can get the"
              Print "database of local phone numbers updated."
              Print
              s4602 = InputMask("Is your Phone Number Long Distance from this BBS? ", "Y", "", 1213417543)
              If s4602 = "N" Then
                Print "Please leave the sysop a note with your prefix.  Thanks!"
                s4527 = " the prefix given is not in DucClocl.CFG "
                Sub10639
                s4471 = "User Reports that their prefix is not in the database of local phone number pre-fixes"
                Sub11100
                Sub10969
                GoTo 8142
              Else
 5371           i4600 = 1
                Print
                s4602 = InputMask("Should your number be dialed: 1-" + s4561 + "? ", "Y", "", 1213417543)
                If s4602 = "Y" Then
                  s4561 = "1-" + s4561
                Else
 5464             Print
                  s4602 = InputMask("Should your number be dialed: 1-" + Right(RTrim(s4561), 8) + "? ", "Y", "", 1213417543)
                  If s4602 = "Y" Then
                    s4561 = "1-" + Right(RTrim(s4561), 8)
                  Else
 5566               Print
                    Print "Are you local?  This call back verifier is confused!"
                    Print
                    Sub10969
                    s4527 = " confused - long distance? "
                    Sub10639
                    s4471 = "User and DuCall Confused. L/D ?"
                    Sub11100
                    GoTo 8142
                  End If
                End If
              End If
            End If
          End If
 5621   Else
 5627     If i4467 = 1 Then
            s4561 = "1-" + s4561
          Else
 5667       If i4584 = 0 Then
              s4527 = " asking user how to dial phone"
              Sub10639
              s4602 = InputMask("Should your number be dialed: " + Right(RTrim(s4561), 8) + "? ", "Y", "", 1213417543)
              If s4602 = "Y" Then
                s4516 = Right(RTrim(s4561), 8)
              Else
 5789           s4602 = InputMask("Is your Phone Number Long Distance from this BBS? ", "Y", "", 1213417543)
                If s4602 = "N" Then
                  Print "It seems to us that you're confused.  Please leave a comment for the Sysop."
                  s4527 = " user confused, exiting"
                  Sub10639
                  s4471 = "User Confused. He/she can not tell us how to dial the phone"
                  Sub11100
                  Sub10969
                  GoTo 8142
                Else
 5890             i4600 = 1
                  Print
                  s4602 = InputMask("Should your number be dialed: 1-" + s4561 + "? ", "Y", "", 1213417543)
                  If s4602 = "Y" Then
                    s4561 = "1-" + s4561
                  Else
 5983               Print
                    s4602 = InputMask("Should your number be dialed: 1-" + Right(RTrim(s4561), 8) + "? ", "Y", "", 1213417543)
                    If s4602 = "Y" Then
                      s4561 = "1-" + Right(RTrim(s4561), 8)
                    Else
 6085                 Print
                      Print "Are you local?  This call back verifier is confused!"
                      Print
                      Sub10969
                      s4527 = " confused - long distance? "
                      Sub10639
                      s4471 = "User and DuCall Confused. L/D ?"
                      Sub11100
                      GoTo 8142
                    End If
                  End If
                End If
              End If
            End If
          End If
        End If
 6140   Cls
        GoSub 8171
        GoSub 8532
        Print
        Print "  We will be calling you back shortly at: "; s4516
        Print
        Print "  It can take anywhere from 5-45 seconds after you type ATA, before our"
        Print "  modems re-connect.  Please be patient...."
        Print
        Print "  When you see the word RING, type ATA then press ENTER"
        Print
        Print "  We will now call you back at your number.."
        Print
        Sub10969
        Cls
        GoSub 8171
        Print
        Print " Hanging up .. wait at least a minute or two for my callback ..."
        Print " then type ATA<return> on your terminal when you hear the ring!"
        Print " YOU MUST ANSWER WITHIN 45 SECONDS!!!!"
        Print
        Print " If DuCall doesn't susceed on its first attempt to connect with you,"
        Print " it will try "; Str(i5304 - 1); " more times.  DuCall will make up to";
        Print " "; Str(i5304); " calls total."
        Print
        s4527 = " is attempting callback"
        Sub10639
        CarrierCheck(0)
        i4590 = 0
        Do
 6357     HangUp
          i4590 = i4590 + 1
          Delay 5
          Cls
          Send "+++" + Chr(13)
          Delay 5
          Send "ATZ" + Chr(13)
          Delay 5
          Send "ATDT" + s4516 + Chr(13)
          r5306 = Timer
          i4594 = FreeFile
          Open "MODEM.DMP" For Output As i4594
          Do
 6493       LockFile(i4594, 0, 1)
            Print #i4594, InComm;
            If Timer - r5306 < 0 Then
              If 86400 - r5306 + Timer > 60 Then
                Send Chr(13)
                GoTo 6641
              End If
            End If
 6595       If Timer - r5306 > 60 Then
              Send Chr(13)
              GoTo 6641
            End If
 6632     Loop Until Carrier
 6641     Close i4594
          If i4590 >= i5304 Then
            i4469 = 1
            s4527 = " too many tries aborting "
            Sub10639
            s4471 = "User did not answer the phone after " + Str(i4590) + " tries."
            Sub11100
            i4469 = 0
            If Exists("MODEM.DMP") Then
              Kill "MODEM.DMP"
            End If
 6749       CarrierCheck(-1)
            GoTo 8142
          End If
 6762   Loop Until Carrier
        Delay 1
        Do
 6779   Loop Until InComm = ""
        s4527 = " connected with user "
        Sub10639
        CarrierCheck(-1)
        i4556 = 0
        i4592 = 0
        Do
 6829     Cls
          Print "connected on "; Str(i4590); " attempt!"
          Print
          Sub10297(("This is " + s4576 + " calling to verify you."), (15), (0))
          Print
          i4596 = 10
          Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
          s4531 = InputMask("     Please enter your login name now: ", "XXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          s4531 = UCase(s4531)
          If User.Name = s4531 Then
            i4592 = 0
            Do
 7050         Print
              s5282 = InputMask("     Please enter your password now: ", "XXXXXXXXXXXXXX", "", 1213417543)
              s5282 = UCase(s5282)
              i4592 = i4592 + 1
              If User.Password = s5282 Then
                GoTo 7217
              End If
 7140         If i4592 = 3 Then
                Print
                Print "You have had 3 incorrect password attempts.  Try calling the BBS back"
                Print "and start the verification process again."
                s4527 = " user could not re-enter his password correctly! "
                Sub10639
                s4471 = "Called User/Bad Password Entered"
                Sub11100
                GoTo 8142
              End If
 7211       Loop
          End If
 7217     If User.Password = s5282 Then
            GoSub 8171
            Color 14
            Print "Verified!"
            Print
            If User.SecLevel <> "SYSOP" Then
              User.SecLevel = s4610
            End If
 7300       If i4588 > 0 Then
              CurrentDate d4586
              IncDate d4586, i4588, 0, 0
              User.ExpireDate = d4586 '! 2 bytes
              s4527 = " user expiration date set at: " + FormatDate(d4586, s4463)
              Sub10639
              Color 15, 0
              Print
              Print "Your trial subscription to this system has been established!"
              Print
              Print "Your subscription expiration date has been set to: ";
              Color 12, 0
              Print FormatDate(d4586, s4463)
              Color 11, 0
              Print
              Print "At that time your user level will be down-graded back to non-verified"
              Print "and/or your user record will be deleted.  Please check with the sysop"
              Print "and the bulletin menu for information on subscribing to this system."
              Print
              Sub10969
              GoSub 8171
            End If
 7471       User.DataNumber = s4561
            If i5296 >= 1 And i5296 <= 5 Then
              User.Comment(i5296) = "pw: " + User.Password
            End If
 7570       If i5298 > 0 Then
              User.SubscriptionBalance = User.SubscriptionBalance + i5298
              s4527 = " subscription balance increased by " + Str(i5298) + " "
              Sub10639
              Color 15
              Print
              Print "Your time balance has been increased by "; i5298; " minutes."
              Print "Withdraw that time and use it to look around the system."
              Print
              Print "Typically you can access the time bank from the main menu."
              Print
              Sub10969
              GoSub 8171
            End If
 7707       s4527 = " successfully upgraded"
            Sub10639
            i4596 = 15
            Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
            Print
            Print "Your security level has successfully been upgraded!"
            If i4467 = 1 Then
              Color 11
              Print
              Print "The call back verifier will now hang up.  Wait a minute and then call"
              Print "us back.  You will now have access to ";
              Color 12
              Print s4576;
              Color 11
              Print "."
              Print
              Print "Enjoy the system!"
              Sub11541
              s4527 = " User Verified! - hanging up "
              Sub10639
              CarrierCheck(0)
              HangUp
              Delay 30
              GoTo 8142
            End If
 7899       If i4598 = 1 And i4600 = 1 Then
              Print
              Print "You are long distance, therefore we are hanging up now.  Wait a minute"
              Print "and call us back."
              Print
              Sub11541
              s4527 = " Long Distance Verified - hanging up "
              Sub10639
              CarrierCheck(0)
              HangUp
              Delay 30
              GoTo 8142
            End If
 7990       Sub11541
            Print
            Print "     You have new mail ..."
            Print
            If InputYesNo("    Read messages now? (YN) ", 1213417543) Then
              Print
              Print "to read the messages you have waiting, please answer the"
              Print "following questions by TYPING a 'U' then an 'A'"
              Print
              ReadMessages
            End If
 8053       GoTo 8142
          End If
 8059     i4556 = i4556 + 1
          If i4556 = 20 Then
            Print "Too many wrong guesses.  Call the board and start over."
            s4527 = " failed verification of name"
            Sub10639
            s4471 = "Called Back/Too many Guesses"
            Sub11100
            HangUp
            GoTo 8142
          End If
 8136   Loop
      End If
      Do
        Do
          Do
            Do
              Do
                Do
                  Do
                    Do
                      Do
 8142                   s4527 = String(79, "─")
                        Sub10639
                        GoToMenu(s4497)
                        End
 8171                   Cls
                        Sub10297(("DuCall version " + s4509), (7), (0))
                        Sub10297((String(50, "═")), (15), (0))
                        Sub10297(("C A L L - B A C K    V E R I F I C A T I O N"), (13), (0))
                        Sub10297((String(50, "═")), (15), (0))
                        Sub10297(("Written by David Kuhn    Copyright(c) 1995"), (7), (0))
                        Print
                        i4596 = 15
                        Print Chr(13); "@" + Right(Hex(i4596), 2) + "@";
                        Print String(79, "═")
                        Return
 8532                   If (Left(s4561, 3) = "911") = 0 Then GoTo 8611
                        Print
                        Print "We can't call 911, Ideot!"
                        Delay 5
                        s4527 = " user wanted us to call 911! "
                        Sub10639
                        s4471 = "User tried to have us call 911!"
                        Sub11100
                      Loop
 8611                 If (Left(Right(RTrim(s4561), 8), 3) = "911") = 0 Then GoTo 8698
                      Print
                      Print "We can't call 911, Ideot!"
                      Delay 5
                      s4527 = " user wanted us to call 911! "
                      Sub10639
                      s4471 = "User tried to have us call 911!"
                      Sub11100
                    Loop
 8698               If (Left(s4561, 3) = "411") = 0 Then GoTo 8777
                    Print
                    Print "We can't call 411, Ideot!"
                    Delay 5
                    s4527 = " user wanted us to call 411! "
                    Sub10639
                    s4471 = "User tried to have us call 411!"
                    Sub11100
                  Loop
 8777             If (Left(Right(RTrim(s4561), 8), 3) = "411") = 0 Then GoTo 8864
                  Print
                  Print "We can't call 411, Ideot!"
                  Delay 5
                  s4527 = " user wanted us to call 411! "
                  Sub10639
                  s4471 = "User tried to have us call 411!"
                  Sub11100
                Loop
 8864           If (Left(Right(RTrim(s4561), 8), 3) = "900") = 0 Then GoTo 8951
                Print
                Print "We can't call numbers, Ideot!"
                Delay 5
                s4527 = " user wanted us to call a 900 number! "
                Sub10639
                s4471 = "User tried to have us call a 900 number!"
                Sub11100
              Loop
 8951         If (Left(Right(RTrim(s4561), 8), 3) = "800") = 0 Then GoTo 9038
              Print
              Print "We can't call 800 numbers!"
              Delay 5
              s4527 = " user wanted us to call a 800 number! "
              Sub10639
              s4471 = "User tried to have us call a 800 number!"
              Sub11100
            Loop
 9038       If (Left(s4561, 3) = "555") = 0 Then GoTo 9117
            Print
            Print "We can't call Hollywood, Silly!"
            Delay 5
            s4527 = " user wanted us to call Hollywood! "
            Sub10639
            s4471 = "User tried to have us call Holywood!"
            Sub11100
          Loop
 9117     If (Left(Right(RTrim(s4561), 8), 3) = "555") = 0 Then GoTo 9204
          Print
          Print "We can't call Hollywoood, Silly!"
          Delay 5
          s4527 = " user wanted us to call Hollywood! "
          Sub10639
          s4471 = "User tried to have us call Holywood!"
          Sub11100
        Loop
 9204   If (Right(RTrim(s4561), 8) = "555-1212") = 0 Then GoTo 9286
        Print
        Print "We can't call information, Ideot!"
        Delay 5
        s4527 = " user wanted us to call information! "
        Sub10639
        s4471 = "User tried to have us call Information!"
        Sub11100
      Loop
 9286 Return
      End

'! Called 2 times
      Function Func9356 As Integer
        If i4467 = 1 Then
          i4495 = -1
        Else
 9394     If FormatTime(t4491, "hh:mm") = FormatTime(t4479, "hh:mm") Then
            i4495 = -1
          Else
 9438       i4495 = 0
            If FormatTime(t4475, "hh:mm") >= FormatTime(t4479, "hh:mm") Then
              If FormatTime(t4475, "hh:mm") <= FormatTime(t4491, "hh:mm") Then
                i4495 = -1
              End If
 9512         If FormatTime(t4491, "hh:mm") < FormatTime(t4479, "hh:mm") Then
                i4495 = -1
              End If
 9550       Else
 9556         If FormatTime(t4475, "hh:mm") < FormatTime(t4479, "hh:mm") Then
                If FormatTime(t4475, "hh:mm") <= FormatTime(t4491, "hh:mm") Then
                  If FormatTime(t4479, "hh:mm") > FormatTime(t4491, "hh:mm") Then
                    i4495 = -1
                  End If
                End If
              End If
            End If
          End If
        End If
 9654
      End Function

'! Called 1 time
      Sub Sub9662(s65534 As String, i65532 As Integer, i65530 As Integer, i65528 As Integer)
        Dim l65518 As Long
        Dim i65522 As Integer
        Dim i65524 As Integer
        Dim i65526 As Integer

        i65526 = CsrLin
        If i65532 = 0 Then
          i65532 = 80 - Len(s65534) / 2
        End If
 9724   Print Chr(13); "@" + Right(Hex(i65528), 1) + Right(Hex(i65530), 1) + "@"; Chr(13);
 9816   For i65524 = 1 To Len(s65534) Step 1
          Locate i65526, i65524 + i65532
          Print Mid(s65534, i65524, 1);
          If i65524 <> Len(s65534) Then
            Delay 0.01
          End If
 9938   Next
 9961   Print
      End Sub

'! Called 1 time
      Sub Sub9966(s65534 As String, i65532 As Integer, i65530 As Integer, i65528 As Integer)
        Dim l65516 As Long
        Dim i65520 As Integer
        Dim i65522 As Integer
        Dim i65524 As Integer
        Dim i65526 As Integer

        If i65532 = 0 Then
          i65532 = 80 - Len(s65534) / 2
        End If
10020   Print Chr(13); "@" + Right(Hex(i65528), 1) + Right(Hex(i65530), 1) + "@"; Chr(13);
        i65526 = CsrLin
        i65524 = 1
10127   For i65522 = 79 To i65532 Step - 1
          Locate i65526, i65522
          Print Left(s65534, i65524);
          ClrEOL
          i65524 = i65524 + 1
          If i65524 > Len(s65534) Then
            i65524 = Len(s65534)
          End If
10261     Delay 0.01
        Next
10292   Print
      End Sub

'! Called 17 times
      Sub Sub10297(s65534 As String, i65532 As Integer, i65530 As Integer)
        Dim l65512 As Long
        Dim i65516 As Integer
        Dim i65518 As Integer
        Dim s65520 As String
        Dim i65524 As Integer
        Dim i65526 As Integer
        Dim i65528 As Integer

        i65528 = 0
        s65520 = s65534
        Print Chr(13); "@" + Right(Hex(i65530), 1) + Right(Hex(i65532), 1) + "@"; Chr(13);
        i65524 = 80 - Len(LTrim(s65520))
10433   For i65518 = 1 To Len(s65534) Step 1
          If Mid(s65534, i65518, 1) = "@" Then
            i65528 = i65528 + 1
          End If
10526   Next
10549   i65526 = Int(i65528 / 2)
        i65524 = i65524 / 2 + i65526
        Print Chr(13); String(i65524, " "); LTrim(s65520);
        Print
      End Sub

'! Called 44 times
      Sub Sub10639
        Dim i65528 As Integer
        Dim t65530 As Time
        Dim d65534 As Date

        If User.SecLevel = RTrim(s4501) Then
        Else
10679     CurrentDate d65534
          CurrentTime t65530
          i65528 = FreeFile
          Open ProgPath + "ducall.log" For Append As i65528
          CarrierCheck(0)
          LockFile(i65528, 0, 1)
          If s4527 <> String(79, "─") Then
            If i4513 = 1 Then
              Print #i65528, s4527; " at "; FormatTime(t65530, "hh:mm:ss"); " on "; FormatDate(d65534, s4463)
            Else
10838         Print #i65528, User.Name; s4527; " at "; FormatTime(t65530, "hh:mm:ss"); " on "; FormatDate(d65534, s4463)
            End If
10901     Else
10907       Print #i65528, String(79, "─")
          End If
10925     UnlockFile(i65528, 0, 1)
          If i4469 = 0 Then
            CarrierCheck(-1)
          End If
10958     Close i65528
        End If
10966
      End Sub

'! Called 19 times
      Sub Sub10969
        Dim i65534 As Integer

        Print
        i65534 = 9
        Do
10987     Print Chr(13); "@" + Right(Hex(i65534), 2) + "@"; "Press ENTER to continue...";
          i65534 = i65534 + 1
          If i65534 > 15 Then
            i65534 = 9
          End If
11068     Delay 0.5
        Loop Until InKey(1213417543) = Chr(13)
      End Sub

'! Called 22 times
      Sub Sub11100
        Dim i65214 As Integer
        Dim mh65216 As MessageHeader

        If Exists(ProgPath + "DUCSBAD.MSG") Then
          Kill ProgPath + "DUCSBAD.MSG"
        End If
11141   i65214 = FreeFile
        Open ProgPath + "DUCSBAD.MSG" For Output As i65214
        CarrierCheck(0)
        LockFile(i65214, 0, 1)
        Print #i65214, "@03@NEW USER:@0F@ " + User.Name
        Print #i65214, "@03@BAD DATA NUMBER:@0F@ " + s4561 + "@0E@"
        Print #i65214, "@03@PROBLEM:@0F@ " + s4471 + "@0E@"
        Print #i65214, ""
        Print #i65214, "The above listed user was not verified, by DuCall, on the Date"
        Print #i65214, "shown in the upper right hand corner.  Please check your DUCCLOCL.CFG"
        Print #i65214, "control file to see if the caller's prefix is in your database of"
        Print #i65214, "local phone numbers."
        Print #i65214, ""
        Print #i65214, "@0F@═ @02@DuCall is a Copyright(c) of Dimensions Unlimited, 1995@0F@ ═"
        UnlockFile(i65214, 0, 1)
        If i4469 = 0 Then
          CarrierCheck(-1)
        End If
11397   Close i65214
        mh65216.From = "DuCall " + s4509
        mh65216.To = s4505
        mh65216.Subject = "New User Verified"
        mh65216.Flags = mh65216.Flags Or 1
        AddMessage(mh65216, ProgPath + "DUCSBAD.MSG", "", i4559)
        If Exists(ProgPath + "DUCSBAD.MSG") Then
          Kill ProgPath + "DUCSBAD.MSG"
        End If
11538
      End Sub

'! Called 3 times
      Sub Sub11541
        Dim i65214 As Integer
        Dim mh65216 As MessageHeader

        mh65216.From = s4505
        mh65216.To = User.Name
        mh65216.Subject = "Welcome!"
        mh65216.Flags = mh65216.Flags Or 1
        AddMessage(mh65216, ProgPath + "ducwel.msg", "", i4559)
        If Exists(ProgPath + "DUCSYSOP.MSG") Then
          Kill ProgPath + "DUCSYSOP.MSG"
        End If
11682   i65214 = FreeFile
        Open ProgPath + "DUCSYSOP.MSG" For Output As i65214
        CarrierCheck(0)
        LockFile(i65214, 0, 1)
        Print #i65214, "@03@NEW USER:@0F@ " + User.Name
        Print #i65214, "@03@VERIFIED DATA NUMBER:@0F@ " + s4561 + "@0E@"
        Print #i65214, ""
        Print #i65214, "The above listed user has been verified by DuCall, on the Date"
        Print #i65214, "shown in the upper right hand corner. The Data Number has been"
        Print #i65214, "added to the User's Record under the DATANUMBER category..."
        Print #i65214, ""
        Print #i65214, "A message has been sent to @0F@" + User.Name + "@0E@"
        Print #i65214, "thanking him/her for calling."
        Print #i65214, ""
        Print #i65214, "@0F@═ @02@DuCall is a Copyright(c) of Dimensions Unlimited, 1995@0F@ ═"
        UnlockFile(i65214, 0, 1)
        CarrierCheck(-1)
        Close i65214
        mh65216.From = "DuCall " + s4509
        mh65216.To = s4505
        mh65216.Subject = "New User Verified"
        mh65216.Flags = mh65216.Flags Or 1
        AddMessage(mh65216, ProgPath + "DUCSYSOP.MSG", "", i4559)
        If Exists(ProgPath + "DUCSYSOP.MSG") Then
          Kill ProgPath + "DUCSYSOP.MSG"
        End If
12084
      End Sub